home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / simpleindent.fpl < prev    next >
Text File  |  1995-08-06  |  352b  |  19 lines
  1. export void Indent()
  2. {
  3.   int counter=0;
  4.   int column=ReadInfo("byte_position");
  5.   int chara;
  6.   string output="\n";
  7.  
  8.   while (counter<column) {
  9.     chara=GetChar(counter);
  10.     if (chara==' ' || chara=='\t')
  11.       output=joinstr(output, itoc(chara));
  12.     else
  13.       break;
  14.     counter++;
  15.   }
  16.   Output(output);
  17. }
  18. AssignKey("Indent();", "Shift 'Return'");
  19.